home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Library / +ORC / Orc pac 3 / FILEZ.ZIP / F19.ZIP / 256PIT.PIC (.txt) next >
Encoding:
AmigaBASIC Source Code  |  1989-10-08  |  3.3 KB  |  162 lines
  1.                                                                                                                                                                                                                                                              <0x15ca9692>8P CLNGCALL<0x15ca9698>25\COMMONEXPLOCCVLCINT<0x15ca96a1>6.17155e-3153b<0x5c>x                                                                      EOF16266&H4912LSET<0x49>FIELD'KLOF\NEXTRNDe<0x4a>GOTOvarffffab6d<0x58>^
  2. Rlabel0b3306MKS$INKEY$<0x60>CVLCINTABS40varffffe004ABS4
  3. T
  4. <0x20><0x15ca9714>COS
  5. <0x4e>LINE<0x15ca9719>;<0x4c>PRINTIELSEIFg<0x52>LOGECLOSElabel104a<0x54>(RINPUT30<<0x15ca972e>IF<0x20><0x15ca9731>$>38@CVLpELSEIF,1.47816e-314$<0x47>64varffff8910CHR$14960^ELSEIFapaCVLCINT2#&|ABS/LOCABS<0x15ca9761><0x62>>ABSjELSEIFh^MKS$<0x15ca976a><0x4c>4208697667label4812<0x15ca9774>sh<0x15ca9777>><0x15ca9779>ABS<0x53>FIX<0x15ca977d>z]*5                                                                    <0x15ca97b2>fnH0<0x20>vABS<0x5a><0x5b><0x4e>LEN{><0x4c><0x46>EXP1LENMOD-2.35117e+33MKL$KLSETABSLSETCLNG,ATNABSb<0x4c>9COMMON<0x4d>aMOD-
  6. TANRIGHT$STATIC<0x4e>1617524178<0x15ca97e8><0x20>INT4CVDTAN8kLEFT$MKL$ERETURNABSSGNA<0x15ca97f7><0x5f>label1040label0380/t<0x59><0x15ca9803>READ_NOTWEND<0x7f>TAN/<0x15ca980b>ELSEIFCHR$'1.04016e-314wINPUTr,P
  7. <0x15ca981e>label0d3e7<0x61>s,IFU@|EXPCOMMON13$<0x15ca982f>AREA6Slabel0145 <0x15ca9837>i6<0x4a>MKI$LOCY<0x15ca983e>GOSUBwCLNGdMKL$DATA0B<0x15ca9847><0x15ca9848>*
  8. <0x15ca984b>|3<0x48>HLOGDATA
  9. RETURN0labelffff8718jSTR$cCLOSE<0x15ca985c>T6USINGLB5IUSINGFIELDC4033056603q<0xdd,0x0a>$ADATA^dFOR<0x15ca9875>CVD<0x15ca9877>Y<0x15ca9879>&Hd638#
  10. Z<0x5e>STR$eCHR$MaH<0x15ca9887>
  11. &4<0x15ca988b>ASCh                                                                                      <0x58>var6512 &INKEY$M}RETURN#GET '$tLET`6var2c9eTHEN<0x62>CVI,RETURN<0x15ca98df>EXP<0x15ca98e1>:CINT)<0x5f>IF;1pfaKAlabel0100LOF)i($COMMON<0x46>)FORM.n%TOMID$<0x15ca9900>EXPINKEY$ *CVS22314GOTO230(ON<0x15ca9913>
  12. x
  13. COS8dCVDz&aDATA>jX[LOFSPACE$<0x83,0x08>PRINT&<0x48><0x59>bIF~<0x56>yMKI$INTM%ZMKI$]FIX1@*ELSE]rCOSLOGELSEINKEY$<0x4a><0x15ca9943>                                                                                                                                           r
  14. iNEXP( <0x15ca9979>LSETk~*PUTMKD$INT<0x7e>=fRETURN.39345<0x46><0x5e><0x55>THENRND[6<0x5b>,<0x15ca9993>STRING$BLOFCINTPRINThV<0x15ca999b>@
  15. <0x59>NMODSLSETANDONCLNGMKD$REMÿ
  16. Ѻ╣┼åyé₧FqHç0
  17. ╩ $ê/
  18. D<OPENSIN<0x56><0x62><0x4b>
  19. CVISQRF|/$35.36781e-315<0x15ca99da>FLrIFM-+THENCVL66Ufvarffffa4a6z=NEXT^LET61
  20. lV<0x15ca99f5>><0x47><0x15ca99f8>cVALfCVD;9.28463e-315&H99d3'^                                                                                                                                                                                                   1SPACE$<0x4b>+RSETDCALL<0x4c>3<0x15ca9a4b>>gCVSNOTEOFGOSUBu<0x48>#LINE&H6cc5&#LENm<0x4a><LETVMKD$varffffec7a)SQRON:k-OR<0x45>?k                                                                                                                                                                    CVSDATA<0x4d>XOR<0x51><0x15ca9aa7>NOT<0x15ca9aa9>8LETE<0x5d>u<0x5a>CVL<0x15ca9ab1>RETURN^label240d
  21. TOAND<0x47>dw<0x15ca9abd>EQV<0x5e>FIELD<0x34,0x02><0x56><0x15ca9ac4>var3580%THENCVSKNOTSPACE$CDBL<0x4c>PUTZwUSINGIMP                                                                                                                                                                                      <0x48>LOG<0x7f><0x15ca9b05><0x15ca9b06>Q<0x15ca9b08>RND^t<0x15ca9b0c>116^A<0x15ca9b11>y<0x15ca9b13>mPUT+-2.77959e-07WEND label4f4aRETURN;+LEN<0x51>*u<0x50>
  22. 3REM;Σ<█    Ü O■I±} ⌡╠╖{g╡#»╝δv█y=
  23. <0x56>                                                                                                                                                                                                                                                             p<0x4f>MID$EOF<0x7e><0x6d,0x02>LEFT$<0x15ca9bba><0x5a>s/REM÷─╧▐²▐╕/ ·∙≡╟╖╛·╧߃ⁿⁿ@0}
  24. <0x15ca9bdd>@<0x6d,0x08><0x48>@label3a90~<0x5b>LOG-9.45723e+27<0x4e>'/|<0x56>C@<0x58>?53123<0x15ca9bfd>< ^B73.50484e-3161.52732e-314LET<0x15ca9c16>CLNG62ANDSINpCHR$                                                                                                                                                                                                                                 <0x15ca9c52>oHB531218L <0x15ca9c5d>E<0x4a,0x08><0x7f>STRING$<0x50>~2SGN]ORfwCLNGEXPIMP<0x15ca9c6e>CDBLA$b<0x15ca9c73>2SUBEQV<0x45>NEXTCLOSE&T<0x5f><0x15ca9c7e><0x15ca9c7f>COMMONC *<0x4e><0x15ca9c85>0CDBLLOC<0x5e>$hAVe/COSQ<0x54>aABS                                            !<0x53,0x02><0x58>A/CVLREMh`|a7F╞▄ÖÅ£ƒwX╟,ª»|╘[α⌠╛;$NNéLⁿú▌₧╕HDrNφ ╚≡╞=╞Nå~ⁿΓ%9@BÆN∞Σ#A╔ª
  25.                   <0x15ca9d52>CVILOG!<0x4f>ELSEIF'var1078@CVS_LOG]-=<0x50><0x4a>+-4.82433e+27TOvar1657ABSaWHILEIF128382CVI<0x9c,0x05>c1<0x53>IF<0x3b>;CLNG@M\ORRIGHT$U<0x54>4Z40963524XOR4<0x5e>,&,INTCOSINT<0x45>8<0x20>LEFT$wANOT9kRSETSTR$q4MINPUT<0x54>VALMID$'uINKEY$MLOG<0x9c,0x02>EXPFTLOG<0x7f>8CDBLINTABSPRINTs
  26. MKI$8gm<0x46>ELSEIF<0x4e>MKD$<0x54>fvar0525ELSEIF@2zPv63INPUT<0x53>SGNMID$5?STRING$Km<0x5e>S>n="ƒc╨á                                        @ay<0x50>EOF<0x5e>ABSLEFT$>
  27. NPOKELFIX<0x56>CINTMID$<0x15ca9e35>}>C}9<0x4d>j<0x5e>rCVS<0x58>USINGMID$=<0x5f>YWHILE1<0x51>CALLMKI$q>JCALLINPUTR<0x5c><0x5c>ABSLSET<0x47>ELSEIFTINKEY$SPACE$4NEXTN-ON<0x51>xSPACE$jGETANDSGN(O1*G&Hf9b4<0x15ca9ea1>R}iPLOCTANRFIXr'<0x15ca9eac>0=kZ<0x15ca9eb1>ABSVFORINPUTFORMID$UGET'Ms<0x59>*[j<0x55>nGSTATICONFSTRING$IMPPUTlabel7de9I;TAN<0x52>CLNG*TRETURN-4*KNEXTJSOPEN<0x4e>ucSQR<0x4c>=N-SPACE$<0x45>RESUME<0x4f>                                                                                 lf<0x15ca9f24>{FORfWHILEPUTCALL5
  28. h<0x4d>9<0x5a><0x3b>FOR<0x56>LENFORPUTid'6<0x59>lLOF`wCVDLSETLETZo<0x60>O<0x50>LETf<0x15ca9f4b><0x4e>Lf3GOTONEXT<0x4c>g*<0x56>SQRCVS-9<0x15ca9f5a>"║Z╜E╓«»═^&!Aüp┬çg)&nW[╒^╒╕9=@rà╦▄4ß╢╖║╒mnÖ9^h*╫║Å¥fv╖K┘α╣
  29. LEFT$<0x51>}READsMKI$<0x4b>
  30. u<0x5a>7LOC<0x55><0x7d>@[=\label0000                                             7<0x83,0x02>INTABS,`TAN"ibï:Ç+xª┬}└&|▌»∙w┬╬^
  31. ┘┬Aå┤└┘Ü«b║Rö¬ª .qpφû    S╕┐Σ├p
  32. v╖ßnPçD=q@░é┤└│╜}¬GúJVÿ2u¬4û≡~+ Y≥φ≈
  33. 3<0x56>^3<0x5b>HAREA<0x20>1504448338AEOFvarffffb038<0x15caa05f>,SGNRETURNn                                                                           <0x55><0x15caa093>a5<0x3b>7sIFMKL$*CDBLvar1ce5LOF<0x55>xREMz=█
  34. <0x7c>:#4T`<0x15caa0ae>*PJGOTO4<0x3b>`02SPACE$PUTe35799L><0x56><0x46>IF<0x4d>4LET2
  35. 'EPRINTMKL$56 <0x15caa0d0>RETURNs<0x15caa0d3>TABSATNUSINGvSTRING$SGNLOFmOPENi5DATAZA+8<0x4d>CINT<0x7e>/FOR2}<0x59>29087lE<ELSEU`var0ba0<0x60>                                                                                                                                                                                                                                                            my<0x15caa134>+^<0x5e><0x15caa138>INPUTgCALLMKD$pINPUTWRITECINTf8<0x15caa143>x|^WEND<0x4b>sFNLOFlabel0c5c<0x60>label2710GET<0x52>5CLOSEvar2e1b.{*8sLOCIMP<0x56>k
  36. +ESTRING$LSETT<0x15caa169>$525x<0x15caa170>0varffff9622THENLOF4@label73d0GOSUBRETURNORPUT;<0x52>RETURNEASC<0x15caa18b> !GET<0x15caa18f>x;ELSEIF                                  &label1184 <0x15caa1c7>                                                                                                                                                                                                           <0x15caa202><0x4c>}LOCt2z<0x57><0x15caa20a>OPEN6VALGET[><F<0x53>CDBLDX<0x15caa219>#LSET{FN<0x20><0x5f><0x7f><0x15caa221>AELSEIFMKL$sINPUTj<0x5e>MID$INPUT-7.78959e+33<0x15caa230>label11f47)><0x56>8
  37. MKS$|<0x61>CVLPUTSGN<0x15caa244>ATNEQVp<var112fELSEIF4;SIFINKEY$hELSEIF<0x5f>
  38. 248RETURN7323#/9<0x15caa299>LRETURNTOFORCVI`TOLINE51874
  39. IF9<0x15caa2af>
  40. St>eSIN)2825508693<0x4b>XOR=<0x15caa2bf><0x5d>U<0x7d>#TAN<0x51>o8ORLSETCVI`>'Hvarffffca8b5mGETRSET<<0x61>.<0x57>x<0x55>CCINTlabel0b5c
  41. <Z<0x15caa2e4>&H35c3<0x52>7WAND>varffff856f<0x15caa2f0><0x61>E<0x15caa2f3>OLET<0x15caa2f6>17441NOT<0x59><0x5a>CLOSECMSQRMKL$=<0x15caa303>Z<0x5e>]<0x5d>                                                                                                                       NEXTWRITE<0x7c><0x5a>CVLPUTABS<0x5f>var4ff3RETURN#<0x7e>
  42. DATA>7<0x61>Q<0x5f>o<0x53>LOG>IMPCVS140OPEN EOFM<0x49>6<0x60>'GET'<0x7c,0x02>M<0x15caa35c>w4RETURN`*v[CLNG^tGOTOO50183CLNGvarffff80cf\<0x15caa374>COMMON<0x7e>/Y/WEND<8REMx─3>÷ïwUπ"_⌠█│Θ║┐╝∩] ¿∞    ▀ε+o≈╦Ö╧38 ∙ñ▀║½B@∙[v
  43.                                   63/1<0x4f>ATN\GOSUBWRITEh+2149058560<0x15caa3f2>ABS
  44. EXP7<<0xf5,0x08>p<0x60>ASC4
  45. 16899<0x60>
  46. CVD<0x15caa406>EXP!CALLCINT<0x15caa40f>149688
  47. NEXTABSCLOSEFN$MLOF,>var5282COMMON
  48. NVd>varffffe6c932BCOMMON a<0x62>D<0x15caa432>4,\Dd00!<0x45>CLOSElabel47184COMMONP<0x61>RMID$139NPRINTxRIGHT$USING<0x46>ELSE5.61289e-3150oTHEN<0x5c><0x59>XORgPIFD%221802537SH<0x15caa46a><0x15caa46b>TAN<0x15caa46d>0U-UCVS<0x15caa473>READz<0x15caa476>)11ATN<0x15caa47b>-0CINT<0x5b>uMKD$<0x4a>READ8uOREQV<0x15caa489>Th<0x46>SGNF+RND%<0x58>MODvarffffdcb6<0x15caa497>>BSGNk0STATICvarffffbd59<0xf5,0x05>63589XREM4Å]l╓q╚S░H║äéPa¡è
  49. 4<0x5f>GET<0x15caa4c4>
  50. >ORELSEIFvarffffb031Q5.19024e-315                                                                                                                                                                                    EXPzt6f<0x15caa507>SPACE$3<0x4b>                                                                                                                                                                                                                       MID$oPUT84.9916e-315K5<0x7e>ZFN<0x7c,0x02>RNDDATAvar403a0LENXOR+<0x15caa55f><0x7c,0x08>KELSEIF8.14266e-315<0x15caa56d><0x62>8GLET33289READGOTOINPUT{CVDCLNG<0x15caa57f>3.60392e-37<0x5b>CVSABSLINECINT8n'aCLOSE j'LINECHR$U0pvar5e02LETD zTHEN4X1479717287ZCDBL<0x4f>9GOSUB@CHR$RIGHT$<0x5d>CLOSE_labelffff90ecCLOSE<0x5f>COMMONRIGHT$]TA                    COS"G{üArå!'ì¡╔º
  51. ELSE<0x55>aX<0x15caa633>0ABSGOSUBZfSTRING$e
  52. var00c01.19968e-314GOTO<0x62>H4RIGHT$NEXTFIXrNz<0x50>27633ARND
  53. GET4SINABS!<0x15caa65e>!$EXP%GOTO[<0x7e><0xe1,0x02>IF!^I9.91482e-315IMP[v2B'\FOR<0x15caa67d><0x61>ILINEGET}26016^f)THENEOFGOSUB<0x15caa68d>yMKD$INKEY$iTHENCHR$dh-9<0x50>d{<0x49><0x4d>)LOCc<0x15caa6a0>XON'<0x15caa6a4>OBJECT.AX8*F&<0x62>ZjCVDEXP4<0x15caa6b1>iOPEN/<0x55>(LINE*COS1.32227e-314zkFi5RETURN<NEXTEOF<0x46><0x45>&var71ba*,$20<0x15caa6d9>label241864159READxM<MKS$VELSEIF0COMMONFIXq<0x59><0x15caa6ec>K)<0x15caa6ef><0x5e>ATN+.COSUSING<0x4e>gnFIX}4<0x60>bK<0x15caa6ff>hKi<0x15caa703><0x5e>GOSUBABSLINEELSEIF!<0x15caa70a>l^ELSEIF                                                                                                                                                                                                                                                          u/ON')H^K<0x15caa74e>GOSUBTANABSLOCVAL&Ha799ELSEIFMKL$EOFLET7AND|5C7A<0x46>136ELSEIF1LOF%MKD$NEXT
  54. <0x48><0x60>5PRNDc3<0x20>,B<0x15caa776><0x4e></+3<0x4e>XOR<0x15caa782>IjINPUT<0x15caa786>ELSEIF<`q<0x47>GET4RSET|4P<0x59>ATN<0x15caa794>zLOF
  55. READ<0x15caa799>SQR*INPUT&SQRFORELSEIF<0x52>EXPX<0x60>4<0x54><0x15caa7a9>}^CLNG<0x15caa7ad>EXP,yB<0x15caa7b2>$
  56. PIMPMKS$WENDf-MKI$y\_^IMPB8PUTELSEIFE8x<0x5b>]FIzSTATIC<0x15caa7ce>ELSEIF<0x59>$CVS<0x20>MODSTR$Vc<0x54>ELSEIF
  57. <0x57>7<0x4c>-MOD<0x58>wg<0x15caa7e7>@USING<0x15caa7ea>LWHILEvar7fa3=8WEND<0x50>9ELSESTR$                                                                                                                                                                                                          >nLENDATAo>FIELDLET1.76393e-314zABS<0x15caa835>>nNOTWEND~LET@CVDCVS<0x57>MKI$SPACE$QMKS$CVIWENDlabel4490P
  58. 8w(LRETURNvarffffae1a`LSET
  59. <0x15caa856>4|54874151759685SIN@FIX89<0x50>MELSEIF<0x15caa86a>^\63475}/}+3LENASC@AND27EOF<F<0x15caa87f>P@CLNGNOT<0x15caa884>|<0x15caa886>%><0x53>                                                                                                                                  <0x15caa8c2>]MKI$<0x50>IMP<0x15caa8c7>EXP\`label2422'<0x5d><0x58>ELSEIFW9^3.9482965064<0x20>?<0x15caa8df>^<0x4f><0x15caa8e2>EXPRVALFIX12067<0x49>XORCVI<0x15caa8f1><0x5e>\
  60. CVSAREAEOFZFNLOFLINE|nCDBL?54^ASC<0x7f>[ABSMODSTR$6LEN/<0xd5,0x02>CHR$READlabel0080?4LEFT$RETURN<0x15caa919><0x7f>SELSEIF<0x15caa91d><0x15caa91e>PA<0x60>ATN<0x15caa925><0x48><0x60>var2420LET1076
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.